From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 5 Jul 2004 22:41:44 +0000 (+0000)
Subject: (isearch-query-replace, isearch-query-replace-regexp):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21727
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=665eedc8fac0763fcc205bdf9f4f5771c78d183f;p=emacs.git

(isearch-query-replace, isearch-query-replace-regexp):
Use the search string without prompting.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index d30c7c6cc66..6a787f9cc6a 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1062,7 +1062,7 @@ Use `isearch-exit' to quit without signaling."
 (defun isearch-query-replace ()
   "Start query-replace with string to replace from last search string."
   (interactive)
-  (let ((query-replace-interactive 'initial)
+  (let ((query-replace-interactive t)
         (case-fold-search isearch-case-fold-search))
     ;; Put search string into the right ring
     (setq isearch-regexp nil)
@@ -1074,7 +1074,7 @@ Use `isearch-exit' to quit without signaling."
 (defun isearch-query-replace-regexp ()
   "Start query-replace-regexp with string to replace from last search string."
   (interactive)
-  (let ((query-replace-interactive 'initial)
+  (let ((query-replace-interactive t)
         (case-fold-search isearch-case-fold-search))
     ;; Put search string into the right ring
     (setq isearch-regexp t)